Иногда требуется что бы программа могла послать СМС сообщение на телефон. Самое простое решение использовать сотовый телефон, подключенный через последовательный порт к компьютеру. Но это решение требует наличия телефона, специального провода и симкарты оператора сотовой связи. Но есть довольно удобная и выгодная альтернатива этому решению. Интернет сейчас стал довольно доступным во многих даже маленьких городах. А в интернете функционируют интернет шлюзы для отправки СМС сообщений. Для такого способа отправки не требуется дополнительного оборудования. Цены на эти услуги, тоже вполне демократичны и не выше цен операторов сотовой связи. Для работы с одним из таких шлюзов я состряпал компонент для использования в Delphi 7.

Для установки компонента запускаем Delphi 7. После запуска выбираем пункты меню Component\Install Packages...

В открывшемся окне нажимаем кнопку Add...

Указываем путь к файлам из скаченного архива и нажимаем кнопку "ОK"

В списке установленных пакетов должен появиться пакет "Отправка СМС через интернет". Можно нажать кнопку "ОК".

Теперь компонент рассылки СМС стал доступен для использования в проектах.

Рассмотрим использование компонента в «Программе для отправки СМС сообщений через интернет шлюз»

На форме нужно разместить компонент SMSSend1; поля типа "Edit": EditUser, EditPassword, EditSender и EditSMSText; Memo1; LabelBalans; кнопку BitBtnSend. Для запроса баланса используется следующий код

SMSSend1.SMSUser := EditUser.Text;
SMSSend1.SMSPassword := EditPassword.Text;
SMSMode := 1;
SMSSend1.GetBalans;

где SMSMode глобальная переменная программы. Получаем ответ от сервера в обработчике события

procedure TForm1.SMSSend1DoneString(Sender: TObject; Result: String);
begin
Case SMSMode Of
1 : Begin // Баланс
If Result[1] in ['0'..'9'] Then LabelBalans.Caption := Result Else LabelBalans.Caption := '?';
SMSMode := 0;
End;
Else
Begin
SMSMode := 0;
End;
End;
end;

Для отправки сообщения служит следующий код

Var
I : Integer;
Phone, SMSText : String;
begin
If SMSMode = 0 Then
Begin
SMSSend1.SMSUser := EditUser.Text;
SMSSend1.SMSPassword := EditPassword.Text;
SMSSend1.SMSCost := '0';
SMSSend1.SMSSender := EditSender.Text;
Phone := Memo1.Lines.Strings[0];
SMSText := EditSMSText.Text;
SMSMode := 2;
If (Phone <> '') And (SMSText <> '') Then SMSSend1.SendSMS(Phone, SMSText);
End;
end;


Для регистрации пользователя шлюза и по другим вопросам обращайтесь ко мне, через электронную почту denaon(a)mail.ru

html счетчик посещений

---

Вернуться на главную

Новости

Электроника

Программки

Дипломникам

Спутниковое телевидение

Отборные анекдоты

Вопросы и ответы

Обратная связь

DenAon

Хостинг от uCoz